﻿Imports System.Data
Imports System.Data.Odbc
Imports WSEntidades
Public Class TiposcFact
    Public Shared Function Build(ByVal dr As OdbcDataReader) As TiposcBE
        Dim tmpTiposc As TiposcBE = New TiposcBE()
        Try
            With tmpTiposc
                .Descrip = convertDTFromDb.ConvertString(dr.Item("Descrip"))
                .Id = convertDTFromDb.convertInt32(dr.Item("Id"))
                .Tipo = convertDTFromDb.ConvertString(dr.Item("Tipo"))
            End With
            Return tmpTiposc
        Catch ex As Exception
            Throw
        Finally
            tmpTiposc = Nothing
        End Try
    End Function
End Class
